home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_dbas / bigarr / bigarry1.frm < prev    next >
Text File  |  1995-03-05  |  6KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form frmBig1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "'BIG DISK ARRAY' Demonstration (part 2)"
  5.    ClientHeight    =   5385
  6.    ClientLeft      =   1290
  7.    ClientTop       =   2100
  8.    ClientWidth     =   6930
  9.    Height          =   5730
  10.    Icon            =   0
  11.    Left            =   1260
  12.    ScaleHeight     =   5385
  13.    ScaleWidth      =   6930
  14.    Tag             =   "BIGARRY2"
  15.    Top             =   1785
  16.    Width           =   6990
  17.    Begin CommandButton Command1 
  18.       Caption         =   "&Type'd"
  19.       Height          =   300
  20.       Index           =   5
  21.       Left            =   5850
  22.       TabIndex        =   7
  23.       Top             =   1890
  24.       Width           =   1005
  25.    End
  26.    Begin CommandButton Command1 
  27.       Caption         =   "&Fixed string"
  28.       Height          =   300
  29.       Index           =   4
  30.       Left            =   4410
  31.       TabIndex        =   6
  32.       Top             =   1890
  33.       Width           =   1200
  34.    End
  35.    Begin CommandButton Command1 
  36.       Caption         =   "&Double"
  37.       Height          =   300
  38.       Index           =   3
  39.       Left            =   3330
  40.       TabIndex        =   5
  41.       Top             =   1890
  42.       Width           =   1005
  43.    End
  44.    Begin CommandButton Command1 
  45.       Caption         =   "&Single"
  46.       Height          =   300
  47.       Index           =   2
  48.       Left            =   2250
  49.       TabIndex        =   4
  50.       Top             =   1890
  51.       Width           =   1005
  52.    End
  53.    Begin CommandButton Command1 
  54.       Caption         =   "&Long"
  55.       Height          =   300
  56.       Index           =   1
  57.       Left            =   1170
  58.       TabIndex        =   3
  59.       Top             =   1890
  60.       Width           =   1005
  61.    End
  62.    Begin CommandButton Command1 
  63.       Caption         =   "&Integer"
  64.       Height          =   300
  65.       Index           =   0
  66.       Left            =   90
  67.       TabIndex        =   2
  68.       Top             =   1890
  69.       Width           =   1005
  70.    End
  71.    Begin ListBox List3 
  72.       BackColor       =   &H00C0C0C0&
  73.       FontBold        =   0   'False
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   8.25
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   1200
  80.       Left            =   90
  81.       TabIndex        =   11
  82.       Top             =   4140
  83.       Width           =   6765
  84.    End
  85.    Begin ListBox List2 
  86.       BackColor       =   &H00C0C0C0&
  87.       FontBold        =   0   'False
  88.       FontItalic      =   0   'False
  89.       FontName        =   "MS Sans Serif"
  90.       FontSize        =   8.25
  91.       FontStrikethru  =   0   'False
  92.       FontUnderline   =   0   'False
  93.       Height          =   1200
  94.       Left            =   90
  95.       TabIndex        =   9
  96.       Top             =   2610
  97.       Width           =   6765
  98.    End
  99.    Begin ListBox List1 
  100.       BackColor       =   &H00C0C0C0&
  101.       FontBold        =   0   'False
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   8.25
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   1200
  108.       Left            =   90
  109.       TabIndex        =   1
  110.       Top             =   360
  111.       Width           =   6225
  112.    End
  113.    Begin PictureBox Picture1 
  114.       AutoSize        =   -1  'True
  115.       BorderStyle     =   0  'None
  116.       Height          =   480
  117.       Left            =   6390
  118.       Picture         =   BIGARRY1.FRX:0000
  119.       ScaleHeight     =   480
  120.       ScaleWidth      =   480
  121.       TabIndex        =   12
  122.       Top             =   30
  123.       Visible         =   0   'False
  124.       Width           =   480
  125.    End
  126.    Begin Label Label1 
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "&Select one of the following variable type to perform the test"
  129.       Height          =   195
  130.       Index           =   3
  131.       Left            =   90
  132.       TabIndex        =   13
  133.       Top             =   1620
  134.       Width           =   6765
  135.    End
  136.    Begin Label Label1 
  137.       BackStyle       =   0  'Transparent
  138.       Caption         =   "&Read the 30 random data in (r, c, s) for (row, col, sheet)"
  139.       Height          =   195
  140.       Index           =   2
  141.       Left            =   90
  142.       TabIndex        =   10
  143.       Top             =   3870
  144.       Width           =   6765
  145.    End
  146.    Begin Label Label1 
  147.       BackStyle       =   0  'Transparent
  148.       Caption         =   "&Writing 30 random data in random place in (r, c, s) for (row, col, sheet)"
  149.       Height          =   195
  150.       Index           =   1
  151.       Left            =   90
  152.       TabIndex        =   8
  153.       Top             =   2340
  154.       Width           =   6765
  155.    End
  156.    Begin Label Label1 
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "&Initialization status"
  159.       Height          =   195
  160.       Index           =   0
  161.       Left            =   90
  162.       TabIndex        =   0
  163.       Top             =   90
  164.       Width           =   5505
  165.    End
  166. End
  167. Option Explicit
  168.  
  169. Sub Command1_Click (Index As Integer)
  170.    
  171.    ' disable the form (keys and mouse)
  172.    cDisableFI Picture1
  173.  
  174.    ' call the test depending on the index of the command
  175.    Call TestBig(Index + 1)
  176.    
  177.    ' enable the form (keys and mouse)
  178.    cEnableFI Picture1
  179.  
  180. End Sub
  181.  
  182. Sub Form_Unload (Cancel As Integer)
  183.    Call DeleteDemoFiles
  184. End Sub
  185.  
  186.